home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Helper 1: Phil & Dave's Excellent CD
/
Excellent CD HFS.raw
/
Moof
/
Goodies
/
MPW Goodies
/
MPW Goodies⁄DTS
/
GetLastChange
< prev
next >
Wrap
Text File
|
2022-08-05
|
868b
|
32 lines
# GetLastChange - find the previous change in a window
#
# Usage: GetLastChange window [commentFile]
#
# Status: GetLastChange may return the following status values:
#
# 0 the change was extracted
# 1 error
#
# GetLastChange extracts a change from the window into the file,
# commentFile. The change is found at the LastChange marker.
Set Exit 0
Set CaseSensitive 0
Begin
Set Window "{1}" # get change from this file (must be open window)
Set Comment "{2}" # get comment in this file (should not be open)
Find ΔLastChange "{Window}" # get the comment
If {Status} == 0
Find /∂t[¬∂t]+∂t+[¬∂t]+∂t+/Δ:/∞/ "{Window}"
Catenate "{Window}.§" >"{Comment}"
Else
Echo -n >"{Comment}" # no comment at all
Find • "{Window}" && Mark /•∂tChange History:[ ∂t]*∂n[ ∂t]*∂n/Δ LastChange "{Window}"
If {Status} != 0
Exit 1
End
End
End ∑Dev:Null